module mPGPLOT

        interface pgopen
                function pgopen(device)
                        integer :: pgopen
                        character*(*) :: device
                end function pgopen
        end interface

end module mPGPLOT
